home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Grafik / Paint / Perfectpaint / rexx / general / SaveGif_Picture.rx < prev    next >
Encoding:
Text File  |  1999-12-03  |  958 b   |  63 lines
  1. /*     arexx Script 
  2.     SAVE Picture in GIF format
  3.     need 'tapgif' in PerfectPaint:tools/    
  4. */
  5.  
  6.     options results
  7.     parse ARG Port b
  8.     
  9.     ADDRESS value Port
  10.        options results
  11.     pp_showscreen
  12.  
  13.     pp_DialogInit 250 90 "*Save*Gif*Picture*" 3
  14.         pp_String 0 50 12 150 16 "Name" 1 100 "ram:Noname.GIF"
  15.         pp_Getfile 1 205 13 0 "Save*Gif" 0 "ram:"
  16.         pp_Cycle 2 100 32 100 16 "Transparency" 1 "No|Color*0|Current*Bg" 0
  17.     pp_Dialog    
  18.  
  19.     rc=result
  20.     if rc=0 then
  21.         do
  22.             EXIT
  23.         end    
  24.  
  25.     pp_GetDialog 0
  26.     file=result
  27.  
  28.     pp_GetDialog 2
  29.     option=result
  30.  
  31.     if option=2 then
  32.     DO
  33.         pp_GetBpen
  34.         Bpen=result
  35.     END
  36.  
  37.     if option=1 then
  38.     DO
  39.         Bpen=0
  40.     END
  41.  
  42.     pp_asay 'Saving*GIF*file|Please*wait*...'
  43.     pp_save 'ram:t/pptemp' 0
  44.  
  45.     address COMMAND
  46.     if option=0 then
  47.     DO
  48.         'perfectpaint:tools/tapgif '||'ram:t/pptemp '||'"'||file||'"'
  49.     END
  50.     ELSE
  51.     DO
  52.         'perfectpaint:tools/tapgif '||'ram:t/pptemp '||'"'||file||'"'||' TRAN '||Bpen
  53.     END
  54.  
  55.     'delete >nil: ram:t/pptemp'
  56.  
  57.     ADDRESS value Port
  58.     pp_closeasay
  59.  
  60.     end    
  61.  
  62.  
  63.